  �B  �   k820309              19.0        ߩyf                                                                                                          
       functions.f90 FUNCTIONS_MOD                                                     
                                                           
                    @                                    
                                                         
                                                         
                                                                                                                                                                           
                                                    	     
                                                    
                                                              
                                                         
                                                         
                                                                                                                  
                                                         
                                                         
                                                                                                                  
                                                         
                                                         
                                                         
                                                         
                                                         
                                                         
                                                                       
      p          p            p                                                                            
                                                         
                                                         
                                                         
                                                         
       (        `                                                                      
    #LABOR !   #EFFECTIVE_WAGE "   #CAPITAL #   #KPRIME $   #KDIM %   #TR &   #R '   p          5 O p            5 O p                                    
  @                               !     
                
  @                               "     
                
  @                               #     
               
  @                               $                    
    p          5 � p        r %       5 � p        r %                               
                                  %                     
  @                               &     
                
  @                               '     
      %         @                                (                    
       #LABOR )   #CAPITAL *   #KPRIME +   #TR ,   #R -   #W .             
                                  )     
                
                                  *     
                
                                  +     
                
                                  ,     
                
                                  -     
                
                                  .     
      (        `                                 /                                    
    #PROD 0   #CAPITAL 1   #KPRIME 2   #KDIM 3   #TR 4   #W 5   #R 6   p          5 O p            5 O p                                    
                                  0     
                
  @                               1     
               
  @                               2                    
    p          5 � p        r 3       5 � p        r 3                               
                                  3                     
  @                               4     
                
                                  5     
                
  @                               6     
      %         @                                7                    
       #CAPITAL_INCOME 8   #LABOR_INCOME 9   #YOUNG :             
  @                               8     
                
  @                               9     
                
  @                               :           %         @                                ;                    
       #LABOR_INCOME <   #CAPITAL_INCOME =   #YOUNG >   #LABOR_TAX ?   #CAPITAL_TAX @             
  @                               <     
                
  @                               =     
                
                                  >                     
                                  ?     
                
                                  @     
      %         @                                A                    
       #LABOR_INCOME B   #CAPITAL_INCOME C   #YOUNG D   #LABOR_TAX E   #CAPITAL_TAX F   #REBATE_LEVEL_TEST G             
  @                               B     
                
  @                               C     
                
                                  D                     
                                  E     
                
                                  F     
                
                                  G     
      %         @                                H                    
       #INCOME I             
                                  I     
      %         @                                J                    
       #INCOME K             
                                  K     
      %         @                                 L                    
       #CAPITAL_INCOME M   #LABOR_INCOME N   #YOUNG O   #REBATE_TEST P             
  @                               M     
                
  @                               N     
                
  @                               O                     
  @                               P     
      %         @                                 Q                    
       #CAPITAL_INCOME R   #LABOR_INCOME S   #YOUNG T   #LAMBDA0_TEST U   #LAMBDAK_TEST V   #REBATE_TEST W             
  @                               R     
                
  @                               S     
                
  @                               T                     
  @                               U     
                
                                  V     
                
  @                               W     
      %         @                                X                    
       #INCOME Y   #LAMBDA0_TEST Z             
                                  Y     
                
                                  Z     
      %         @                                 [                    
       #CAPITAL_INCOME \   #LABOR_INCOME ]   #YOUNG ^   #LAMBDA0_TEST _             
  @                               \     
                
  @                               ]     
                
  @                               ^                     
  @                               _     
      %         @                                 `                    
       #CAPITAL_INCOME a   #LABOR_INCOME b   #YOUNG c   #LAMBDAK_TEST d             
  @                               a     
                
  @                               b     
                
  @                               c                     
                                  d     
      %         @                                 e                    
       #CON f   #ENG g             
                                  f     
                
                                  g     
      %         @                                 h                    
       #CAPITAL i   #KPRIME j   #TR k   #R l   #SS_PASS m   #AVG_EARNINGS n             
                                  i     
                
                                  j     
                
                                  k     
                
                                  l     
                
                                  m     
                
                                  n     
      (        `                                 o                                    
    #DIM p   #CAPITAL q   #KPRIME r   #TR s   #R t   #SS_PASS u   #AVG_EARNINGS v   p          5 O p            5 O p                                    
                                  p                     
                                  q     
               
                                  r                    
 	   p          5 � p        r p       5 � p        r p                               
                                  s     
                
                                  t     
                
                                  u     
                
                                  v     
      %         @                                 w                    
       #CON x   #ENG y   #AD_EQIV z             
                                  x     
                
                                  y     
                
                                  z     
      %         @                                 {                    
       #CON |   #ENG }   #CEV ~   #AD_EQIV    #NON_ENERGY �             
                                  |     
                
                                  }     
                
                                  ~     
                
                                       
                
                                  �           %         @                                 �                    
       #CON �   #ENG �             
                                  �     
                
                                  �     
      %         @                                 �                    
       #LABOR �   #DISCOUNT �   #VPRIME �   #AD_EQIV �             
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
      %         @                                 �                    
       #C �   #E �   #LABOR �   #DISCOUNT �   #VPRIME �   #AD_EQIV �             
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
      %         @                                 �                    
       #C �   #E �   #LABOR �   #DISCOUNT �   #VPRIME �   #AD_EQIV �   #CEV �   #NON_ENERGY �             
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �     
                
                                  �           %         @                                 �                    
       #C �   #E �   #DISCOUNT �   #VPRIME �   #AD_EQIV �             
                                  �     
                
                                  �     
                
                                  �     
                                                 �     
                 
                                  �     
      %         @                                 �                    
       #C �   #E �   #DISCOUNT �   #VPRIME �   #AD_EQIV �   #CEV �   #NON_ENERGY �             
                                  �     
                
                                  �     
                
                                  �     
                                                 �     
                 
                                  �     
                
                                  �     
                
                                  �           #         @                                   �                    #INPUTS �   #MISSES �   #CHOICESN �            
                                  �                    
    p          5 � p        r �       5 � p        r �                              D                                 �                    
     p          5 � p        r �       5 � p        r �                               
                                  �           %         @                                 �                    
       #C_CON �   #TOTCONSUMPTION �   #AGE �             
                                  �     
                
                                  �     
                
                                  �           %         @                                �                    
       #AX �   #BX �   #CX �   #FUNC �   #TOL �   #XMIN �   #TOTCONSUMPTION �   #AGE �                                   
  @                               �     
                
                                  �     
                
  @                               �     
      "                                         �      
               
                                  �     
                D                                 �     
                 
@ @                               �     
                
@ @                               �           %         @                                �                    
       #AX �   #BX �   #CX �   #FUNC �   #TOL �   #XMIN �   #K �   #N �                                    
  @                               �     
                
                                  �     
                
  @                               �     
      "                                         �      
               
                                  �     
                D                                 �     
                 
@ @                               �     
                
@ @                               �     
      #         @                                   �                    #NDATA �   #TDATA �   #YDATA �   #TVAL �   #YVAL �   #NDATA2 �             
  @                               �                    
  @                               �                    
    p          5 � p        r �       5 � p        r �                              
                                  �                    
    p          5 � p        r �       5 � p        r �                              
  @                               �                    
    p          5 � p        r �       5 � p        r �                              D                                 �                    
     p          5 � p        r �       5 � p        r �                               
                                  �           #         @                                  �                    #N �   #X �   #XVAL �   #LEFT �   #RIGHT �             
                                  �                    
                                  �                    
    p          5 � p        r �       5 � p        r �                               
                                  �     
                D                                 �                      D                                 �               �   $      fn#fn    �   @   J   PARAMETERS_MOD &     @   J   PARAMETERS_ENERGY_MOD &   D  @       SS_CAP+PARAMETERS_MOD %   �  @       TAUSS+PARAMETERS_MOD (   �  @       LUMP_SUM+PARAMETERS_MOD -     @       REBATE_TO_OLD+PARAMETERS_MOD 9   D  @       LABOR_CAPITAL_REBATE_BASE+PARAMETERS_MOD ,   �  @       REBATE_LEVEL+PARAMETERS_MOD ,   �  @       REBATE_SLOPE+PARAMETERS_MOD (     @       FLAT_TAX+PARAMETERS_MOD 2   D  @       AVG_EARNINGS_SCALE+PARAMETERS_MOD '   �  @       LAMBDA1+PARAMETERS_MOD '   �  @       LAMBDAK+PARAMETERS_MOD +     @       NO_INCREASE+PARAMETERS_MOD 3   D  @       REBATE_NEGATIVE_TAX+PARAMETERS_MOD -   �  @       LAMBDA0_START+PARAMETERS_MOD -   �  @       LAMBDA1_START+PARAMETERS_MOD .     @       NEGATIVE_TAXES+PARAMETERS_MOD '   D  @       LAMBDA0+PARAMETERS_MOD &   �  @       GAMMA1+PARAMETERS_MOD $   �  @       EBAR+PARAMETERS_MOD &     @       SIGMA1+PARAMETERS_MOD #   D  @       CHI+PARAMETERS_MOD &   �  @       SIGMA2+PARAMETERS_MOD $   �  @       BETA+PARAMETERS_MOD 8     �       PASSED_PARAMETERS+PARAMETERS_ENERGY_MOD &   �  @       ALPHA2+PARAMETERS_MOD %   �  @       THETA+PARAMETERS_MOD &     @       ALPHA1+PARAMETERS_MOD "   X  @       PE+PARAMETERS_MOD $   �  @       TAUE+PARAMETERS_MOD    �        C_UPPER_FNC2 #   �	  @   a   C_UPPER_FNC2%LABOR ,   
  @   a   C_UPPER_FNC2%EFFECTIVE_WAGE %   ]
  @   a   C_UPPER_FNC2%CAPITAL $   �
  �   a   C_UPPER_FNC2%KPRIME "   Q  @   a   C_UPPER_FNC2%KDIM     �  @   a   C_UPPER_FNC2%TR    �  @   a   C_UPPER_FNC2%R      �       WORKCON    �  @   a   WORKCON%LABOR     �  @   a   WORKCON%CAPITAL      @   a   WORKCON%KPRIME    [  @   a   WORKCON%TR    �  @   a   WORKCON%R    �  @   a   WORKCON%W      �       C_UPPER_FNC !     @   a   C_UPPER_FNC%PROD $   R  @   a   C_UPPER_FNC%CAPITAL #   �  �   a   C_UPPER_FNC%KPRIME !   F  @   a   C_UPPER_FNC%KDIM    �  @   a   C_UPPER_FNC%TR    �  @   a   C_UPPER_FNC%W      @   a   C_UPPER_FNC%R    F  �       ALL_TAXER )   �  @   a   ALL_TAXER%CAPITAL_INCOME '     @   a   ALL_TAXER%LABOR_INCOME     G  @   a   ALL_TAXER%YOUNG "   �  �       REBATE_CALCULATOR /   (  @   a   REBATE_CALCULATOR%LABOR_INCOME 1   h  @   a   REBATE_CALCULATOR%CAPITAL_INCOME (   �  @   a   REBATE_CALCULATOR%YOUNG ,   �  @   a   REBATE_CALCULATOR%LABOR_TAX .   (  @   a   REBATE_CALCULATOR%CAPITAL_TAX    h  �       REBATE_FINDER +      @   a   REBATE_FINDER%LABOR_INCOME -   `  @   a   REBATE_FINDER%CAPITAL_INCOME $   �  @   a   REBATE_FINDER%YOUNG (   �  @   a   REBATE_FINDER%LABOR_TAX *      @   a   REBATE_FINDER%CAPITAL_TAX 0   `  @   a   REBATE_FINDER%REBATE_LEVEL_TEST    �  \       LAB_TAXER !   �  @   a   LAB_TAXER%INCOME    <  \       OLD_LAB_TAXER %   �  @   a   OLD_LAB_TAXER%INCOME !   �  �       ALL_TAXER_REBATE 0   j  @   a   ALL_TAXER_REBATE%CAPITAL_INCOME .   �  @   a   ALL_TAXER_REBATE%LABOR_INCOME '   �  @   a   ALL_TAXER_REBATE%YOUNG -   *  @   a   ALL_TAXER_REBATE%REBATE_TEST    j  �       ALL_TAXER_B +      @   a   ALL_TAXER_B%CAPITAL_INCOME )   `  @   a   ALL_TAXER_B%LABOR_INCOME "   �  @   a   ALL_TAXER_B%YOUNG )   �  @   a   ALL_TAXER_B%LAMBDA0_TEST )      @   a   ALL_TAXER_B%LAMBDAK_TEST (   `  @   a   ALL_TAXER_B%REBATE_TEST    �  n       LAB_TAXER0 "     @   a   LAB_TAXER0%INCOME (   N  @   a   LAB_TAXER0%LAMBDA0_TEST    �  �       ALL_TAXER_L +   !  @   a   ALL_TAXER_L%CAPITAL_INCOME )   a  @   a   ALL_TAXER_L%LABOR_INCOME "   �  @   a   ALL_TAXER_L%YOUNG )   �  @   a   ALL_TAXER_L%LAMBDA0_TEST    !  �       ALL_TAXER_K +   �  @   a   ALL_TAXER_K%CAPITAL_INCOME )   �  @   a   ALL_TAXER_K%LABOR_INCOME "   4  @   a   ALL_TAXER_K%YOUNG )   t  @   a   ALL_TAXER_K%LAMBDAK_TEST "   �  b       CONSUMPTION_TILDA &      @   a   CONSUMPTION_TILDA%CON &   V   @   a   CONSUMPTION_TILDA%ENG    �   �       RETCON    -!  @   a   RETCON%CAPITAL    m!  @   a   RETCON%KPRIME    �!  @   a   RETCON%TR    �!  @   a   RETCON%R    -"  @   a   RETCON%SS_PASS $   m"  @   a   RETCON%AVG_EARNINGS    �"        RETCON_AR    �#  @   a   RETCON_AR%DIM "   �#  @   a   RETCON_AR%CAPITAL !   1$  �   a   RETCON_AR%KPRIME    �$  @   a   RETCON_AR%TR    %%  @   a   RETCON_AR%R "   e%  @   a   RETCON_AR%SS_PASS '   �%  @   a   RETCON_AR%AVG_EARNINGS    �%  o       UTILITY_LAST !   T&  @   a   UTILITY_LAST%CON !   �&  @   a   UTILITY_LAST%ENG %   �&  @   a   UTILITY_LAST%AD_EQIV !   '  �       UTILITY_LAST_CEV %   �'  @   a   UTILITY_LAST_CEV%CON %   �'  @   a   UTILITY_LAST_CEV%ENG %   (  @   a   UTILITY_LAST_CEV%CEV )   \(  @   a   UTILITY_LAST_CEV%AD_EQIV ,   �(  @   a   UTILITY_LAST_CEV%NON_ENERGY    �(  b       CON_AGGREGATOR #   >)  @   a   CON_AGGREGATOR%CON #   ~)  @   a   CON_AGGREGATOR%ENG    �)  �       VALUER_LABOR #   @*  @   a   VALUER_LABOR%LABOR &   �*  @   a   VALUER_LABOR%DISCOUNT $   �*  @   a   VALUER_LABOR%VPRIME %    +  @   a   VALUER_LABOR%AD_EQIV    @+  �       VALUER    �+  @   a   VALUER%C    ,  @   a   VALUER%E    P,  @   a   VALUER%LABOR     �,  @   a   VALUER%DISCOUNT    �,  @   a   VALUER%VPRIME    -  @   a   VALUER%AD_EQIV    P-  �       VALUER_CEV    �-  @   a   VALUER_CEV%C    9.  @   a   VALUER_CEV%E !   y.  @   a   VALUER_CEV%LABOR $   �.  @   a   VALUER_CEV%DISCOUNT "   �.  @   a   VALUER_CEV%VPRIME #   9/  @   a   VALUER_CEV%AD_EQIV    y/  @   a   VALUER_CEV%CEV &   �/  @   a   VALUER_CEV%NON_ENERGY    �/  �       VALUER_RET    ~0  @   a   VALUER_RET%C    �0  @   a   VALUER_RET%E $   �0  @   a   VALUER_RET%DISCOUNT "   >1  @   a   VALUER_RET%VPRIME #   ~1  @   a   VALUER_RET%AD_EQIV    �1  �       VALUER_RET_CEV !   \2  @   a   VALUER_RET_CEV%C !   �2  @   a   VALUER_RET_CEV%E (   �2  @   a   VALUER_RET_CEV%DISCOUNT &   3  @   a   VALUER_RET_CEV%VPRIME '   \3  @   a   VALUER_RET_CEV%AD_EQIV #   �3  @   a   VALUER_RET_CEV%CEV *   �3  @   a   VALUER_RET_CEV%NON_ENERGY #   4  n       ENERGY_ROOT_FINDER *   �4  �   a   ENERGY_ROOT_FINDER%INPUTS *   >5  �   a   ENERGY_ROOT_FINDER%MISSES ,   �5  @   a   ENERGY_ROOT_FINDER%CHOICESN &   26  x       ENERGY_SHARE_EQUATION ,   �6  @   a   ENERGY_SHARE_EQUATION%C_CON 5   �6  @   a   ENERGY_SHARE_EQUATION%TOTCONSUMPTION *   *7  @   a   ENERGY_SHARE_EQUATION%AGE    j7  �       ENERGY_SHARER !   "8  @   a   ENERGY_SHARER%AX !   b8  @   a   ENERGY_SHARER%BX !   �8  @   a   ENERGY_SHARER%CX #   �8  @      ENERGY_SHARER%FUNC "   "9  @   a   ENERGY_SHARER%TOL #   b9  @   a   ENERGY_SHARER%XMIN -   �9  @   a   ENERGY_SHARER%TOTCONSUMPTION "   �9  @   a   ENERGY_SHARER%AGE    ":  �       ENERGY_LEVELER "   �:  @   a   ENERGY_LEVELER%AX "   ;  @   a   ENERGY_LEVELER%BX "   L;  @   a   ENERGY_LEVELER%CX $   �;  @      ENERGY_LEVELER%FUNC #   �;  @   a   ENERGY_LEVELER%TOL $   <  @   a   ENERGY_LEVELER%XMIN !   L<  @   a   ENERGY_LEVELER%K !   �<  @   a   ENERGY_LEVELER%N #   �<  �       SPLINE_LINEAR_VAL2 )   U=  @   a   SPLINE_LINEAR_VAL2%NDATA )   �=  �   a   SPLINE_LINEAR_VAL2%TDATA )   I>  �   a   SPLINE_LINEAR_VAL2%YDATA (   �>  �   a   SPLINE_LINEAR_VAL2%TVAL (   �?  �   a   SPLINE_LINEAR_VAL2%YVAL *   e@  @   a   SPLINE_LINEAR_VAL2%NDATA2    �@  u       RVEC_BRACKET2     A  @   a   RVEC_BRACKET2%N     ZA  �   a   RVEC_BRACKET2%X #   B  @   a   RVEC_BRACKET2%XVAL #   NB  @   a   RVEC_BRACKET2%LEFT $   �B  @   a   RVEC_BRACKET2%RIGHT 